home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
FishMarket 1.0
/
FishMarket v1.0.iso
/
fishies
/
526-550
/
disk_542
/
chemnimate
/
examples
/
rocket.ani
< prev
next >
Wrap
Text File
|
1992-05-06
|
5KB
|
194 lines
; THE ROCKET-DEMO
; I knew I ever would be able to play along with my own vectorball routines!
; © :
; 17-Jul-91 KP van Gend a rocket flies around.
; 23-Jul-91 KP van Gend Added something looking like stars in the
; background. Looks quite ugly sometimes.
; 27-Jul-91 R Knaapen added some BALLS #ON#/#OFF#.
; 11-Aug-91 KP van Gend added VIPER & EXPLOSION.
;
;
; This file is written to show the possibilities of ChemniMaTe...
;
Data 1
;r ang hei typ lin ;nr (comment)
37 0 -5 H6 4 ;1 one of basement
37 21 -5 H6 4 ;2 two of basement
37 43 -5 H6 4 ;3 three of basement
0 0 0 C0 4 ;4 body of rocket
0 0 50 Hr20 4 ;5 antenna of rocket.
Data 11 ;skip a few...
60 0 0 In12 12 ;11 here below are the data for the stars.
61 0 0 In12 11 ;12
70 19 0 In12 14 ;13
71 19 0 In12 13 ;14
60 25 0 In12 16 ;15
60 25 0 In12 15 ;16
70 48 0 In12 18 ;17
71 48 0 In12 17 ;18
30 7 0 In12 20 ;19
30 7 0 In12 19 ;20
80 35 0 In12 22 ;21
81 35 0 In12 21 ;22
20 55 0 In12 24 ;23
20 54 0 In12 23 ;24
90 11 0 In12 26 ;25
91 11 0 In12 25 ;26
120 22 0 In12 28 ;27
120 22 0 In12 27 ;28
120 42 0 In12 30 ;29
120 42 0 In12 29 ;30
120 2 0 In12 32 ;31
120 2 0 In12 31 ;32
EndData
DisplayMode 1 ;two-dimensional look.
THeader " Do You Know What This Is ???"
TFooter " Guess You Don't Know!"
I:=120;
Repeat 2
Loop
Middle (160 , 120) ; Set Middle of screen.
Balls #Off# ; this one is to improve the playing speed.
ShowNS 11 32
Balls #On#
CM 11 32 1 -3
Middle (#i# , 125) ; Set Middle of screen.
Show 1 1 5
i:= [#i# + 2] ; Move spaceship to the right...
Until #I# >= 200
TFooter " Is it a molecule? Is it an alien?"
Loop
Middle (160 , 120) ; Set Middle of screen.
Balls #Off# ; The stars consist of lines, and In12 -> no need
ShowNS 11 32
Balls #On# ; To display 20 invisibles. Thus, set Balls off.
CM 11 32 1 -3
Middle (#i# , 125) ; Set Middle of screen.
Show 1 1 5
i:= [#i# - 2] ; Move spaceship to the right...
Until 120 >= #I#
EndRepeat
; empty screen
TFooter " "
Theader " "
SPages
DisplayMode 0 ;normal 3-d look.
Data 1
;r ang hei typ lin ;nr comment
59 16 0 C0 1 ;1 back-backbody
63 16 0 C0 2 ;2 front-backbody
88 14 -26 H6 2 ;3 front-leg
38 13 -26 H6 1 ;4 back-leg
61 13 31 H6 1 ;5 upper-leg
64 19 0 C0 6 ;6 back-frontbody
65 19 0 C0 7 ;7 front-frontbody
81 23 0 Hr20 6 ;8 top
81 23 0 In12 7 ;9 top (second line)
61 15 0 Hr22 10 ;10 fire...
EndData
Middle (160 , 120) ; Set Middle of screen.
Repeat 33
Show 1 1 9
Show 1 1 10
EndRepeat
THeader " NO! Geezz, It's a Rocket..."
Tfooter "Didnt know you could do such with CHMNMT"
Repeat 33
DisplayMode 1
Balls #Off#
ShowNS 11 32 ;show stars
Balls #On#
CM 11 32 1 -1
DisplayMode 0
Show 1 1 9 ;show rocket without fire
DisplayMode 1
Balls #Off#
ShowNS 11 32 ;show stars
Balls #On#
CM 11 32 1 -1
DisplayMode 0
Show 1 1 10 ;show rocket WITH fire.
EndRepeat
Data 12
;r ang hei typ lin ;nr (comment)
20 0 14 In12 13 ;12
20 32 14 In12 14 ;13
30 16 14 In12 15 ;14
70 16 0 C0 16 ;15
30 16 -14 In12 17 ;16
20 32 -14 In12 18 ;17
20 0 -14 In12 19 ;18
32 0 0 C0 12 ;19
20 32 14 In12 21 ;20
32 32 0 C0 17 ;21
30 16 -14 In12 18 ;22
30 16 14 In12 12 ;23
32 0 0 In12 15 ;24
32 32 0 In12 15 ;25
EndData
DisplayMode 0
Middle (160, 100)
Balls #Off#
Theader " "
TFooter " "
DAn:= 0;
Ang:= 2;
Show 1 12 25
Wait 20;
Text (74, 165) "VIPER class (POLICE SHIP)"
Show 1 12 25
Wait 20
Text (74, 165) "VIPER class (POLICE SHIP)"
Text (14, 182) "ARMAMENTS: PulseLaser & Seeker Missiles"
Text (14, 190) "VELOCITY: 0.32 LM CREW: 1 (up to 10)"
Text (14, 198) "MOTORS: deLacy Super Thrust VC10"
Show 1 12 25
Wait 150;
DAn:= 2; /* fast(er) turn */
Repeat 24
Text (74, 165) "VIPER class (POLICE SHIP)"
Show 1 12 25
EndRepeat
Text (14, 200) "This craft makes a warp to our rocket."
TFooter "Guess what will happen when they meet ?"
SPages
Wait 150
Dan:= 1;
CM 1 10 1 -50
Repeat 13
Middle (100, 125)
Balls #ON#
CM 1 10 1 -1 ;I don't want to let the rocket turn as fast as the viper
ShowNS 1 10;
Middle (210,125)
Balls #Off#
Show 1 12 25 ;show the viper
EndRepeat
Wait 50
; B O O M ! !
TFooter " B O O M ! !"
Text (0,125) "B O O M !"
Dan:= 0
Show 1 12 25
Wait 200
; That's all folks!!! How did you like it?
; Nah, better not say...